﻿Public Class DetalleReceta
    Private cId As Integer
    Private cPrecioHistorico As Double
    Private cPorcentajeResolucion As Double
    Private cPorcentajeCobertura As Double
    Private cCantidad As Integer
    Private cRenglon As Integer
    Private cMedicamento As Medicamento

    Public Sub New()
        cId = -1
        cPrecioHistorico = -1
        cPorcentajeResolucion = -1
        cPorcentajeCobertura = -1
        cCantidad = -1
        cRenglon = -1
        cMedicamento = Nothing
    End Sub

    Public Sub New(ByVal pId As Integer, ByVal pPrecioHistorico As Double, ByVal pPorcentajeResolucion As Double, ByVal pPorcentajeCobertura As Double, ByVal pCantidad As Integer, ByVal pRenglon As Integer, ByVal pMedicamento As Medicamento)
        cId = pId
        cPrecioHistorico = pPrecioHistorico
        cPorcentajeResolucion = pPorcentajeResolucion
        cPorcentajeCobertura = pPorcentajeCobertura
        cCantidad = pCantidad
        cRenglon = pRenglon
        cMedicamento = pMedicamento
    End Sub

    Public Property Id()
        Get
            Return cId
        End Get
        Set(ByVal value)
            cId = value
        End Set
    End Property

    Public Property PrecioHistorico()
        Get
            Return cPrecioHistorico
        End Get
        Set(ByVal value)
            cPrecioHistorico = value
        End Set
    End Property

    Public Property PorcentajeResolucion()
        Get
            Return cPorcentajeResolucion
        End Get
        Set(ByVal value)
            cPorcentajeResolucion = value
        End Set
    End Property

    Public Property PorcentajeCobertura()
        Get
            Return cPorcentajeCobertura
        End Get
        Set(ByVal value)
            cPorcentajeCobertura = value
        End Set
    End Property

    Public Property Cantidad()
        Get
            Return cCantidad
        End Get
        Set(ByVal value)
            cCantidad = value
        End Set
    End Property

    Public Property Renglon()
        Get
            Return cRenglon
        End Get
        Set(ByVal value)
            cRenglon = value
        End Set
    End Property

    Public Property Medicamento()
        Get
            Return cMedicamento
        End Get
        Set(ByVal value)
            cMedicamento = value
        End Set
    End Property
End Class